home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / util / time / DRemind.lha / DRemind / DRemind-Install next >
Encoding:
Text File  |  2000-11-23  |  12.9 KB  |  651 lines
  1. ; $VER: Installation script for DRemind 1.0 (16.09.2000)
  2. ; © Alexander Döller
  3. ; Created with GoldED 6.17
  4. ; Minor modifications made by Daniel Westerberg
  5.  
  6. ;=============================================================================
  7. ; English strings
  8.  
  9. (if (= @language "english")
  10. (
  11. (set def_lang 0)
  12.  
  13. (set #incorectos
  14. (cat "Incorrect OS version (software requires OS 37 or better )!"
  15. ))
  16. (set #error1
  17. (cat "An error has occurred during installation. Please check the log file to understand the error."
  18. ))
  19. (set #insmode
  20. (cat "\nChoose the installation mode:"
  21. ))
  22. (set #installtext
  23. (cat "Install"
  24. ))
  25. (set #uninstalltext
  26. (cat "Uninstall"
  27. ))
  28. (set #inspath
  29. (cat "Please choose the installation path for the DRemind-Commodity:\n('SYS:WBStartup' is recommend if you want to start DRemind at startup time.)"
  30. ))
  31. (set #helpinspath
  32. (cat "If you specify 'SYS:WBStartup' the system will start DRemind at startup for you.\nIf you choose to install it to an other dir you will have to start it manually."
  33. ))
  34. (set #inspathprefs
  35. (cat "Please choose the installation path for the DRemind-Preferences program:\n('SYS:Prefs' is recommend if you want DRemind to be able to start the preferences program.)"
  36. ))
  37. (set #inspathprefshelp
  38. (cat "If you choose to install it to an other dir you will have to call DRemindPrefs yourself every time you want to change the prefs."
  39. ))
  40. (set #confdir
  41. (cat "Please choose the directory for the configuration file: ('ENVARC' = default)\nNote: If you set any other destination than ENVARC: don't forget to change the dir in DRemindPrefs as well!"
  42. ))
  43. (set #wichimage
  44. (cat "Which image to install?"
  45. ))
  46. (set #copyimage
  47. (cat "Copying image for DRemind ..."
  48. ))
  49. (set #wichicon
  50. (cat "Which icons to install?"
  51. ))
  52. (set #copyicon
  53. (cat "Copying icons for DRemind ..."
  54. ))
  55. (set #selectlanguage
  56. (cat "\nPlease select the language to install:\n"
  57. ))
  58. (set #language00
  59. (cat "English"
  60. ))
  61. (set #language01
  62. (cat "German"
  63. ))
  64. (set #language02
  65. (cat "Spanish"
  66. ))
  67. (set #language03
  68. (cat "French"
  69. ))
  70. (set #language04
  71. (cat "Hungarian"
  72. ))
  73. (set #language05
  74. (cat "Polish"
  75. ))
  76. (set #whatelse
  77. (cat "What to install else?"
  78. ))
  79. (set #documentation
  80. (cat "Documentation"
  81. ))
  82. (set #otherimages
  83. (cat "Other images for DRemind"
  84. ))
  85. (set #transdev
  86. (cat "Translation (for developers)"
  87. ))
  88. (set #readmefiles
  89. (cat "Readme files"
  90. ))
  91. (set #dirstuff
  92. (cat "Please choose the directory for the DRemind stuff:\n(A new dir will be created.)"
  93. ))
  94. (set #onlyremove
  95. (cat "DRemind can only be removed from the system if was installed with the default settings for the dirs!"
  96. ))
  97. (set #insaddfiles
  98. (cat "Did you install the additional files?"
  99. ))
  100. (set #yes
  101. (cat "Yes"
  102. ))
  103. (set #no
  104. (cat "No"
  105. ))
  106. (set #choosestuffdir
  107. (cat "Please choose the directory where you installed the DRemind stuff:"
  108. ))
  109. (set #uninscompl
  110. (cat "Uninstallation completed."
  111. ))
  112. )
  113. )
  114. ;=============================================================================
  115. ; German strings
  116.  
  117. (if (= @language "deutsch")
  118. (
  119. (set def_lang 1)
  120. )
  121. )
  122. ;=============================================================================
  123. ; Spanish strings
  124.  
  125. (if (= @language "español")
  126. (
  127. (set def_lang 2)
  128. )
  129. )
  130. ;=============================================================================
  131. ; French strings
  132.  
  133. (if (= @language "français")
  134. (
  135. (set def_lang 3)
  136. )
  137. )
  138. ;=============================================================================
  139. ; Hungarian strings are translated by Oborzin <oborzin@freemail.hu>
  140.  
  141. (if (= @language "magyar")
  142. (
  143. (set def_lang 4)
  144.  
  145. (set #incorectos
  146. (cat "Nem megfelelõ az OS verzió (OS 37 vagy újabb kell)!"
  147. ))
  148. (set #error1
  149. (cat "Hiba történt installáláskor. Ellenõrizd a log fájlt!"
  150. ))
  151. (set #insmode
  152. (cat "\nVálaszd ki hogy mit csináljak:"
  153. ))
  154. (set #installtext
  155. (cat "Install"
  156. ))
  157. (set #uninstalltext
  158. (cat "Uninstall"
  159. ))
  160. (set #inspath
  161. (cat "Válassz útvonalat a DRemind-Commodity-nak.\n('SYS:WBStartup' ajánlott)" 
  162. ))
  163. (set #helpinspath
  164. (cat " Ha a 'SYS:WBStartup' könyvtárat választod, a DRemind automatikusan elindul bootoláskor.\nHa másik helyre másolod, akkor az indításról neked kell gondoskodni!"
  165. ))
  166. (set #inspathprefs
  167. (cat "Válassz útvonalat a DRemind-Preferences programnak.\n('SYS:Prefs' ajánlott)"
  168. ))
  169. (set #inspathprefshelp
  170. (cat "Ha másik útvonalat választasz, a DRemind nem tudja majd elindítani a Prefs programot, így azt neked kell majd külön elindítani!"
  171. ))
  172. (set #confdir
  173. (cat "Válassz útvonalat a konfig-fájlnak. ('ENVARC' az alapbeállítás)\nHa más útvonalat választasz, állítsd be a Prefs programban!"
  174. ))
  175. (set #wichimage
  176. (cat "Melyik képet választod?"
  177. ))
  178. (set #copyimage
  179. (cat "Kép másolása..."
  180. ))
  181. (set #wichicon
  182. (cat "Melyik ikont választod?"
  183. ))
  184. (set #copyicon
  185. (cat "Ikonok másolása ..."
  186. ))
  187. (set #selectlanguage
  188. (cat "\nVálassz nyelvet:\n"
  189. ))
  190. (set #language00
  191. (cat "angol"
  192. ))
  193. (set #language01
  194. (cat "német"
  195. ))
  196. (set #language02
  197. (cat "spanyol"
  198. ))
  199. (set #language03
  200. (cat "francia"
  201. ))
  202. (set #language04
  203. (cat "magyar"
  204. ))
  205. (set #language05
  206. (cat "lengyel"
  207. ))
  208. (set #whatelse
  209. (cat "Még mit installáljak?"
  210. ))
  211. (set #documentation
  212. (cat "Dokumentáció"
  213. ))
  214. (set #otherimages
  215. (cat "Képek a DRemind-hez"
  216. ))
  217. (set #transdev
  218. (cat "Fordítás (fejlesztõknek)"
  219. ))
  220. (set #readmefiles
  221. (cat "Readme fájlok"
  222. ))
  223. (set #dirstuff
  224. (cat "Válassz könyvtárat a DRemind kiegészítõknek:\n(Nyitok neki egy új könyvtárat.)"
  225. ))
  226. (set #onlyremove
  227. (cat "Csak akkor tudom letörölni a DRemind-et a rendszeredrõl, ha az alapbeállítás szerint installáltad fel!"
  228. ))
  229. (set #insaddfiles
  230. (cat "A kiegészítõket is felinstalláltad?"
  231. ))
  232. (set #yes
  233. (cat "Igen"
  234. ))
  235. (set #no
  236. (cat "Nem"
  237. ))
  238. (set #choosestuffdir
  239. (cat "Válaszd ki a DRemind kiegészítõk könyvtárját!"
  240. ))
  241. (set #uninscompl
  242. (cat "A DRemind törlése befejezve."
  243. ))
  244. )
  245. )
  246. ;=============================================================================
  247. ; Polish strings
  248.  
  249. (if (= @language "polski")
  250. (
  251. (set def_lang 5)
  252. )
  253. )
  254. ; 
  255. ; OTHER TRANSLATIONS HERE:
  256. ;=============================================================================
  257. ; START
  258. ;=============================================================================
  259.  
  260. (set @default-dest "ram:")
  261. (complete 0)
  262.  
  263. (if (< (/ (getversion) 65536) 37)
  264.     (
  265.         (abort #incorectos)
  266.     )
  267. )
  268.  
  269. ; error handling
  270.  
  271. (onerror
  272.     (if (> @ioerr 0)
  273.         (
  274.             (message
  275.                 (#error1)
  276.             )
  277.         )
  278.     )
  279.     (exit (quiet))
  280. )
  281.  
  282. (set #installmode
  283.   (askbool
  284.     (prompt #insmode)
  285.     (help @askbool-help)
  286.     (choices
  287.              #installtext
  288.              #uninstalltext
  289.              
  290.     )
  291.     (default 1)
  292.   )
  293. )
  294.  
  295. (if (= #installmode 1)
  296.  
  297.  ; normal installation
  298.  
  299.     (
  300.         (welcome)
  301.  
  302.      ; --- insert your code below ---
  303.  
  304.  
  305.    (set @CDty-dest
  306.      (askdir
  307.       (prompt #inspath)
  308.       (help #helpinspath)
  309.       (default "SYS:WBStartup/")
  310.      )
  311.    )
  312.  
  313. (COMPLETE 10)
  314.  
  315.    (set @Prefs-dest
  316.      (askdir
  317.       (prompt #inspathprefs)
  318.       (help #inspathprefshelp)
  319.       (default "SYS:Prefs/")
  320.      )
  321.    )
  322.  
  323. (COMPLETE 20)
  324.  
  325.    (copyfiles
  326.        (source "DRemind/DRemind")
  327.        (dest @CDty-dest)
  328.        (infos)
  329.        (optional "oknodelete" "force" "askuser")
  330.    )
  331.  
  332. (COMPLETE 30)
  333.  
  334.  
  335.    (copyfiles
  336.        (source "DRemind/DRemindPrefs")
  337.        (dest @Prefs-dest)
  338.        (infos)
  339.        (optional "oknodelete" "force" "askuser")
  340.    )
  341.  
  342. (COMPLETE 40)
  343.  
  344.    (set image_dir
  345.      (askdir
  346.       (prompt #confdir)
  347.       (help @askdir-help)
  348.       (default "ENVARC:")
  349.      )
  350.    )
  351.  
  352. (COMPLETE 50)
  353.  
  354. ;        uncomment if you want to show a picture of the available images
  355. ;   (run "run sys:utilities/multiview DRemind/DRemind.image" (safe))
  356.  
  357.    (set #result
  358.      (askchoice
  359.        (prompt #wichimage)
  360.        (help @askchoice-help)
  361.        (choices
  362.  
  363.           "1. - Amiga Boing"
  364.           "2. - New Hand in B/W"
  365.           "3. - New Hand in Red"
  366.           "4. - The Hand (default)"
  367.        )
  368.        (default 3)
  369.      )
  370.    )
  371.  
  372.  
  373.    (if (= #result 0)
  374.        (set image_source "DRemind/Images/Boing/")
  375.    )
  376.    (if (= #result 1)
  377.        (set image_source "DRemind/Images/NewHand_BW/")
  378.    )
  379.    (if (= #result 2)
  380.        (set image_source "DRemind/Images/NewHand_Red/")
  381.    )
  382.    (if (= #result 3)
  383.        (set image_source "DRemind/Images/TheHand/")
  384.    )
  385.  
  386.  
  387.    (working #copyimage)
  388.  
  389.    (copyfiles
  390.        (source (tackon image_source "DRemind.image"))
  391.        (dest image_dir)
  392.        (optional "nofail")
  393.    )
  394.  
  395. (COMPLETE 60)
  396.  
  397.    (set #result
  398.      (askchoice
  399.        (prompt #wichicon)
  400.        (help @askchoice-help)
  401.        (choices
  402.  
  403.           "1. - Standard 4-colour"
  404.           "2. - MagicWB"
  405.           "3. - OS3.5 GlowIcons"
  406.        )
  407.        (default 2)
  408.      )
  409.    )
  410.  
  411.  
  412.    (if (= #result 0)
  413.        (set image_source "DRemind/Icons/Old/")
  414.    )
  415.    (if (= #result 1)
  416.        (set image_source "DRemind/Icons/MagicWB")
  417.    )
  418.    (if (= #result 2)
  419.        (set image_source "DRemind/Icons/OS3.5/")
  420.    )
  421.  
  422.    (working #copyicon)
  423.  
  424.    (copyfiles
  425.        (source (tackon image_source "DRemind.info"))
  426.        (dest @CDty-dest)
  427.        (optional "nofail")
  428.    )
  429.    (copyfiles
  430.        (source (tackon image_source "DRemindPrefs.info"))
  431.        (dest @Prefs-dest)
  432.        (optional "nofail")
  433.    )
  434.    
  435.  
  436. (COMPLETE 70)
  437.  
  438.    (set #result
  439.      (askchoice
  440.        (prompt #selectlanguage)
  441.        (help @askchoice-help)
  442.        (choices
  443.  
  444.           #language00
  445.           #language01
  446.           #language02
  447.           #language03
  448.           #language04
  449.           #language05
  450.        )
  451.        (default #def_lang)
  452.      )
  453.    )
  454.  
  455.    (if (= #result 0)
  456.        (set language "english")
  457.    )
  458.    (if (= #result 1)
  459.        (set language "deutsch")
  460.    )
  461.    (if (= #result 2)
  462.        (set language "español")
  463.    )
  464.    (if (= #result 3)
  465.        (set language "français")
  466.    )
  467.    (if (= #result 4)
  468.        (set language "magyar")
  469.    )
  470.    (if (= #result 5)
  471.        (set language "polski")
  472.    )
  473.  
  474.    (copyfiles
  475.        (source (tackon "DRemind/Catalogs" language))
  476.        (dest (tackon "LOCALE:Catalogs" language))
  477.        (pattern "#?")
  478.        (optional "nofail" "force" "askuser")
  479.    )
  480.  
  481. (COMPLETE 80)
  482.  
  483.    (set #result
  484.      (askoptions
  485.        (prompt #whatelse)
  486.        (help @askoptions-help)
  487.        (choices
  488.  
  489.           #documentation
  490.           #otherimages
  491.           #transdev
  492.           #readmefiles
  493.        )
  494.        (default (+ 1 2 4 8))
  495.      )
  496.    )
  497.  
  498.    (if (= #result 0)
  499.        (exit)
  500.    )
  501.  
  502.    (set dest_dir
  503.      (askdir
  504.       (prompt #dirstuff)
  505.       (help @askdir-help)
  506.       (default "SYS:Utilities/")
  507.       (newpath)
  508.      )
  509.    )
  510.  
  511.    (set @default-dest dest_dir)
  512.  
  513. (COMPLETE 90)
  514.  
  515.    (set dest_dir (tackon dest_dir "DRemind"))
  516.  
  517.    (if (in #result 0)
  518.      (copyfiles
  519.        (source "DRemind/DRemind.Guide")
  520.        (dest dest_dir)
  521.        (infos)
  522.        (optional "oknodelete" "force" "askuser")
  523.      )
  524.    )
  525.  
  526.    (if (in #result 1)
  527.      (copyfiles
  528.        (source "DRemind/Images/")
  529.        (dest (tackon dest_dir "Images"))
  530.        (infos)
  531.        (pattern "#?")
  532.        (optional "oknodelete" "force" "askuser")
  533.      )
  534.    )
  535.  
  536.    (if (in #result 2)
  537.      (copyfiles
  538.        (source "DRemind/Translations/")
  539.        (dest (tackon dest_dir "Translations"))
  540.        (infos)
  541.        (files)
  542.        (pattern "#?")
  543.        (optional "oknodelete" "force" "askuser")
  544.      )
  545.    )
  546.  
  547.    (if (in #result 3)
  548.      (copyfiles
  549.        (source "DRemind/")
  550.        (dest dest_dir)
  551.        (infos)
  552.        (pattern "#?.Readme")
  553.        (optional "oknodelete" "force" "askuser")
  554.      )
  555.    )
  556.  
  557.  
  558. (COMPLETE 100)
  559.  
  560. ; --- end of your code ---
  561.  
  562.         (exit)
  563.     )
  564.  
  565.  ; uninstall application
  566.  
  567.     (
  568.      ; --- insert your code below ---
  569.  
  570.    (message #onlyremove)
  571.  
  572.    (delete "SYS:WBStartup/DRemind")
  573.    (delete "SYS:WBStartup/DRemind.info")
  574.  
  575. (COMPLETE 20)
  576.  
  577.    (delete "SYS:Prefs/DRemindPrefs")
  578.    (delete "SYS:Prefs/DRemindPrefs.info")
  579.  
  580. (COMPLETE 40)
  581.  
  582. ; remove all available language files
  583.    (delete (cat "LOCALE:Catalogs/english/DRemind.catalog"))
  584.    (delete (cat "LOCALE:Catalogs/english/DRemindPrefs.catalog"))
  585.  
  586.    (delete (cat "LOCALE:Catalogs/deutsch/DRemind.catalog"))
  587.    (delete (cat "LOCALE:Catalogs/deutsch/DRemindPrefs.catalog"))
  588.  
  589.    (delete (cat "LOCALE:Catalogs/español/DRemind.catalog"))
  590.    (delete (cat "LOCALE:Catalogs/español/DRemindPrefs.catalog"))
  591.  
  592.    (delete (cat "LOCALE:Catalogs/français/DRemind.catalog"))
  593.    (delete (cat "LOCALE:Catalogs/français/DRemindPrefs.catalog"))
  594.  
  595.    (delete (cat "LOCALE:Catalogs/magyar/DRemind.catalog"))
  596.    (delete (cat "LOCALE:Catalogs/magyar/DRemindPrefs.catalog"))
  597.  
  598.    (delete (cat "LOCALE:Catalogs/polski/DRemind.catalog"))
  599.    (delete (cat "LOCALE:Catalogs/polski/DRemindPrefs.catalog"))
  600.  
  601. (COMPLETE 60)
  602.  
  603.    (delete "ENVARC:DRemind.image")
  604.    (delete "ENVARC:DRemind.prefs")
  605.    (delete "ENVARC:DRemind.temp")
  606.    (delete "ENVARC:DRemind.temps")
  607.  
  608. ; remove MUI-settings as well
  609.    (delete "ENVARC:mui/DREMIND.prefs")
  610.    (delete "ENVARC:mui/DRPREFS.1.prefs")
  611.  
  612.  
  613.    (set #result
  614.        (askbool
  615.            (prompt #insaddfiles)
  616.            (help @askbool-help)
  617.            (choices
  618.  
  619.                #yes
  620.                #no
  621.            )
  622.            (default 1)
  623.        )
  624.    )
  625.  
  626. (COMPLETE 80)
  627.  
  628.    (if (= #result 1)
  629.    (
  630.      (set dest_dir
  631.        (askdir
  632.          (prompt #choosestuffdir)
  633.          (help @askdir-help)
  634.          (default "SYS:Utilities")
  635.          (newpath)
  636.        )
  637.      )
  638.      (run (cat "C:delete >NIL: " dest_dir "/DRemind ALL QUIET FORCE"))
  639.      (delete (cat dest_dir "/DRemind.info"))
  640.    ) )
  641.    
  642. (COMPLETE 100)
  643.  
  644. ; -- end of your code ---
  645.  
  646.         (message #uninscompl)
  647.         (exit (quiet))
  648.     )
  649. )
  650.  
  651.